home *** CD-ROM | disk | FTP | other *** search

---

/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Frontier 4.0.1 / Frontier user guide (html) / tourpix / tour39.gif

< prev

next >

Graphics Interchange Format  |  1996-01-24  |  4KB  |  374x393  |  1-bit (2 colors)

Labels: text | screenshot | font
OCR: on recentChanges (path) < creates a folder full of aliases of files that have changed $ = "October 1, 1991" if not dialog.ask ("Gather files changed since when?", @s) marktime = date (s) on recently Changed (f) «return true if the file matches our search criteria on doGather (path) # local (f) fileloop (f in path) << loop over all the files in the path if file.isFolder (f) «it's a folder , recurse else «it's a file folder = file.folderFromPath (path) destFolder = folder + "Recently Changed Files:" if file.exists (destFolder) file.deleteFolder (destFolder) if not file.newFolder (destFolder) return (false) otgathered = 0 doGather (folder) if otgathered > 0 else return (true)

---